HA$PBExportHeader$u_cst_home.sru
forward
global type u_cst_home from u_cst_tabpage
end type
type pb_1 from picturebutton within u_cst_home
end type
end forward

global type u_cst_home from u_cst_tabpage
integer width = 4329
integer height = 2680
long backcolor = 15780518
event type integer ue_validar ( )
pb_1 pb_1
end type
global u_cst_home u_cst_home

event type integer ue_validar();return 0
end event

event resize;call super::resize;//pb_1.height = newheight
//pb_1.width = newwidth
//

pb_1.resize(newwidth, newheight)
end event

on u_cst_home.create
int iCurrent
call super::create
this.pb_1=create pb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.pb_1
end on

on u_cst_home.destroy
call super::destroy
destroy(this.pb_1)
end on

event constructor;call super::constructor;
string ls_ruta_logo,ls_ruta
ls_ruta = "..\\RecursosApp.INI"
ls_ruta_logo	=	ProfileString(ls_ruta , "img", "home", "")
pb_1.picturename=ls_ruta_logo
end event

type pb_1 from picturebutton within u_cst_home
integer width = 4343
integer height = 2684
integer taborder = 10
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
alignment htextalign = left!
end type

